Top 10k strings from Astronomy (1984)(Piper Books)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
7 Q$(CURRENT,
7
5 R$(CURRENT,30
3 p$="YOU SCORED "+
3 p$="PRESS ANY LETTER TO CONTINUE":
3 ;" ":
2 p$="YOU HAD "+
2 p$="TYPE IN YOUR ANSWER":
2 p$="THEN PRESS ENTER":
2 p$="PRESS EACH LETTER OF YOUR NAME THEN PRESS THE ""ENTER"" KEY TO SHOW YOU HAVE FINISHED":
2 p$="Correct? Press Y(yes) or N(no)":
2 current=f(i)
2 a$="Correct? Press Y(yes)or N(no)":
2 a$=" PRESS EACH LETTER OF YOUR NAME THEN PRESS THE ""ENTER"" KEY TO SHOW YOU HAVE FINISHED":
2 The SUN probably formed from a cloud of gas & dust.What is the name we give to this? A N-B--- The SUN'S DIAMETER is how many times greater than the DIAMETER of the MOON? 10? 400? 2000? 200?About how many ECLIPSES of the SUN occur each year? 30? 5? 2? ECLIPSES are known to occur in aperiod of 18 years,11 days.What is the name for this period? Name any PLANET that is NEARER to the SUN than is the EARTH Is a DAY on MERCURY LONGER or SHORTER than a DAY on EARTH? Is a day on JUPITER LONGER or SHORTER than a day on EARTH? Name the SMALLEST PLANET Name the HOTTEST PLANET Name the SECOND PLANET from the SUN Is VENUS LARGER or SMALLER than the EARTH?
2 SCORE=SCORE+10
2 NEBULA 006400 0102 010SAROS 010MERCURY VENUS * * 112LONGER 012SHORTER 012PLUTO 015VENUS 018VENUS 018SMALLER 018RETROGRADE 018VENUS 018MARS 020OLYMPUS 020MARS 020MARS 020JUPITER 02411 02416 02413 024SATURN 028SATURN 028TITAN 028URANUS 031URANUS 031ENGLISH BRITISH * ** 131NEPTUNE 032PLUTO 032ASTEROID 034COPERNICUS 0761957 0
2 A$=" SCORE 10 POINTS":
2 ;q$(current)
2 ;"PRESS ANY LETTER WHEN READY"
2 (chars/256
2 "SPACECADET"
2 colder than EARTH ?
2 TRAINING FOR FUTURE ASTRONAUTS
2 CHRIS SOMERVILLE
2
2
2
2
1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 u$=r$(current,
1 total=total+1
1 total=number
1 total<number
1 t$=t$+" ":
1 sssssssssssssssssssssssssssssss
1 sh .
1 scx+" BONUS POINT":
1 scc
1 pipsoft
1 pic
1 p$="VERY WELL DONE":
1 p$="SORRY THAT'S WRONG":
1 p$="REPLAY":
1 p$="QUESTION "+
1 p$="Please type in your LAST NAME":
1 p$="IF YOU WISH TO TRY THE WRONG ONES AGAIN PRESS ""X"" OR PRESS ANY LETTER":
1 p$="CORRECT REPLY =":
1 p$=" THAT'S RIGHT !":
1 oh,ox;" ":
1 n$=n$+" "+t$:
1 n$=n$+" "+l$
1 i$=i$+"
1 g(number):
1 f(j)=a(x):
1 e(number):
1 chars=64599
1 chars=63831
1 chars=15616
1 c 3
1 a(x)=a(c):
1 a$=t$+" ":
1 a$=a$+"S"
1 a$=a$+" "+
1 a$=" then re-start the tape by":
1 a$=" If you wish to FINISH then":
1 a$=" You cannot use the next program until you complete this task and discover the SECRET CODE":
1 a$=" program, press ""L"" &":
1 a$=" For Chalksoft Ltd. Published by Piper Books Ltd. 1984":
1 a$=" pressing ""PLAY""":
1 a$=" STOP THE TAPE":
1 a$=" press""F""":
1 ZOD END
1 YOU HAVE ENTERED A BLACK HOLE
1 X$=X$+R$(CURRENT,Y):
1 WORDSTART=0
1 WORDSTART=
1 WORDSTART:
1 WORDNO>MAXWORDS
1 WORDNO=WORDNO+WORDSTART:
1 WATER CARRIER
1 W(WORDNO,WORDSTART+1
1 W(WORDNO,2
1 W(MAXWORDS,2
1 VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVbbbbbbbbbbbbbbffffffffffffffffVVbbbbbbbbbbbbbbbfffffffffffffffVVbbbbbbbbbbbbpFffffffffffffffffVVbbbbbbbbbbbbrrfaaaaaaaaaaaaaaaVVaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaVVaaaaaaaaaaaaaAaaaaaaaaaaaaaaaaVVaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaVVaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaVVccccccccccccccccccccccccccccccVVcccccccccccCccccccccccccccccccVVccccccccccccccccccccccccccccccVVccccccccccccccccccccccccccccccVVbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbVVbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbVVbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbVVbbbbbbdbbbbbbbbbbbbbbbbbbbbbbbVVggggdddddddddddddddddddddddgggVVggggddddddddddddddddddddddddggVVggggddddddddddddddddddddddddggVVggggdddddddddddddddddddddddddgVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV
1 V$=R$(CURRENT)
1 UUUUUUUUUUUUUUUW@B<<BBB
1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW||BN|~B
1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUWBBBBBBf
1 UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUW
1 UDG ENDS
1 UDG
1 U$=R$(CURRENT):
1 Tom JonesL
1 THEN PRESS ENTER
1 SUN;SKY
1 SUCCESS
1 SUBROUTINE FOR DOUBLE HEIGHT CHARACTS WHEN CHARSET 2 CODE LOADED
1 SUB;UDG
1 SUB;RAND
1 SUB;INKS
1 SUB;HOP
1 SUB;GROUND
1 SUB PLAN
1 SUB NAME ENTRY
1 SUB ;SCREEN
1 STRINGSCAN:
1 START OF PROGRAM
1 START OF LINE FINDER
1 SPACECADET
1 SPACE CADET 2ND CLASSV
1 SOUND=FADE+56
1 SKY ENDS
1 SIDERITESN
1 SCREEN ENDS
1 SCORE=SCORE-(10
1 SCORE=SCORE-(1
1 SCORE=SCORE+scx:
1 SCORE=SCORE+1
1 SCORE=(SCORE-1
1 SCC
1 ROBOT LANDER
1 RAND ENDS
1 R$(CURRENT,Y+1
1 R$(CURRENT,31
1 R$(CURRENT):
1 QUEST=QUEST+1
1 PRINT=9800
1 PRESS 2 FIGURES & 3 LETTERSD
1 PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP
1 P$="YOUR SPECIAL NUMBER PLUS THE FIRST 3 LETTERS OF YOUR NAME":
1 P$="YOUR SECRET CODE CONSISTS OF":
1 P$="YOU CANNOT ENTER THIS PROGRAM WITHOUT THE SECRET CODE WORD":
1 P$="Please type in your FIRST NAME":
1 P$="PRESS X TO RESTART":
1 P$="PRESS C TO CLEAR":
1 P$="PRESS 2 FIGURES & 3 LETTERS"
1 P$="HELL0 "+N$:
1 P$="COPYRIGHT":
1 P$="1984 CHRIS SOMERVILLE":
1 P$=" YOU HAVE A SECOND CHANCE":
1 P$=" NEXT PROGRAM FROM THE CASSETTE ?":
1 P$=" DO YOU WISH TO LOAD THE":
1 P$=" PUBLISHED BY":
1 P$=" PLEASE TYPE IN YOUR":
1 P$=" PIPER BOOKS LTD.1984":
1 P$=" SECRET CODE":
1 P$=" GOODBYE":
1 P$=" FOR CHALKSOFT LTD.":
1 OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOONOOOOOOOOOOOOOOOOOOOOOOOOOOOO
1 ONNNOOOOOOOOOOOOOOOOOOOOOOOOOOyIOONOOOOOOOOOOOOOOOOOOOOOOOOOOOyIOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOIONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNIONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNIONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNIONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNIONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNIONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNIONNNNNNNNNNNNNNNNNNNNNNNNNNNNNNIONNNNNNNNNNNNNNNNNNOOOOOOOOOONNIONNNNNNNNNNNNNNNNNNOOOOOOOOOONNIONNNNNNNNNNNNNNNNNOOOOOOOOOOONNIONN
1 O$="VENUS":
1 O$="URANUS":
1 O$="SATURN":
1 O$="PLUTO":
1 O$="NEPTUNE":
1 O$="MERCURY":
1 O$="MARS":
1 O$="JUPITER":
1 No OF PRINT POSns.
1 NAME ENTRY
1 MER You measure the temperature and find that it is.... VENYou discover that this planet is MAROn this planet you discover thatthe thermometer reads... JUPYour ship's thermometer shows anoutside temperature of.... SATYou test for temperature and discover that it is........ URAYour thermometer shows that thisis a COLD planet. It shows... NEPWhat temperature do you measure on Neptune? PLU Which answer is correct? MER You test the atmosphere. What do you discover? VENIt is very hot and you discover MARThe thin ATMOSPHERE on MARS is mainly........ JUPThis enormous planet has an atmosphere which is mainly.... SATThis cold planet has a Moon called Titan and an atmosphere URAThis planet appears to be just acold ball of gas.The atmosphere PLUWhat atmosphere do you detect on Pluto? JUPHow many Moons
1 MAXWORDS=4
1 MAKE YOUR CHOICE
1 M$(CURRENT)
1 LINE FINDER ENDS
1 LATN & ENGLISH
1 L$(CURRENT)
1 K$(CURRENT)
1 INKS END
1 I$="
1 HOP
1 GROUND=189
1 GROUND ENDS
1 GRADE=TOTAL
1 GRADE=GRADE+TOTAL:
1 GRADE=GRADE*NUMBER
1 GRADE<2000
1 GRADE<1600
1 GIVES RANDOM SIGN NUMBER
1 GGGGGGGGGGGOOOOONNNNIONNNNNNNNNNNNNNNNNOOOOOOOOONNNNIONOOOOOOOOOOOOOOOOOOOOOOOOONNNNIONNNNOOOOOOOOOOOOOOOOOOOOOONNNNIONNNNOOOOOOOOOOOOOOOOOOOONNNNNNIONNNOOOOOOOOOOOOOOOOOOOOONNNNNNIONNNNNNNNNNNNNNNNNNOONNNNNNNNNNI 5
1 G$=""+("SPACE CADET TRAINEE"
1 F(J)=D(X):
1 DOUBLE I
1 DDxx@@@@DD<<
1 D(X)=D(C):
1 CURRENT=F(QUEST):
1 CONTROL=7000
1 CONTROL
1 CHECK=CHECK+1
1 CHANGE=FADE+284
1 ABACACBBCACBABACACCA
1 A$=Q$(CURRENT,4
1 A$=A$+" ":
1 A$="PLANET "+O$:
1 A$="NO SCORE! THE CORRECT ANSWER IS """+R$(CURRENT)+"""":
1 A$=" You are in control of a small Robot Space-craft and your job is to find the HIDDEN PLANETS and make some discoveries.":
1 A$=" The object of the game is to discover planets by moving your ship and scoring points when a planet is found.":
1 A$=" THE COMPUTER WILL MARK A SAFE LANDING SITE":
1 A$=" Please type in your LAST NAME ":
1 A$=" Please type in your FIRST Name":
1 A$=" NOW LAND YOUR ROBOT EXPLORER":
1 A$=" If you wish to load the next":
1 A$=" USE BOOSTER KEYS 5 AND 7 TO COMBAT WIND & GRAVITY":
1 A$=" REPLACEMENT ROBOT REQUIRED PENALTY POINT":
1 A$=" BEWARE THE BLACK HOLES":
1 A$=" ROBOT LANDED SAFELY ":
1 A$=" MAKE A NOTE OF YOUR SECRET CODE WHICH IS":
1 A$=" SECRET CODE":
1 A$=" SPACE HOP":
1 A$=" CANDIDATE":
1 A$=" """+W$+"""":
1 A$=" 5 8":
1 A$=" 4
1 A$=" 3
1 A$=" 7":
1 A$=" 6":
1 A$="
1 ="7")*(h>0
1 ;r$(current,
1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1 ;"YOUR ROBOT SHIP";
1 ;"YOU HAVE FOUND PLANET ";O$:
1 ;"THE CURSOR KEYS";
1 ;"STOP THE TAPE":
1 ;"SPACE CADET CORPS";
1 ;"SIGNED":
1 ;"SCORE:";SCORE
1 ;"SCORE 1 POINT":
1 ;"Press ""R"" to RE-START";
1 ;"Press ""C"" to CLEAR":
1 ;"PRESS P TO COPY ON YOUR PRINTER OR PRESS ANY LETTER TO CONTINUE"
1 ;"PRESS A LETTER WHEN READY":
1 ;"PLEASE WAIT A MOMENT"
1 ;"NO,THIS IS THE CONSTELLATION OF ";B$;" THE ";C$:
1 ;"NAME THIS CONSTELLATION PRESS THE FIRST 3 LETTERS"
1 ;"GRADE EXAMINATION":
1 ;"DIRECTION";
1 ;"CONTROLLED BY";
1 ;"CHIEF EXAMINER"
1 ;"CAN MOVE IN ANY";
1 ;"APTITUDE TEST"
1 ;"AND KEYS 3,4,9 & 0"
1 ;"ALL THE INFORMATION YOU REQUIRE IS IN YOUR FACTBOOK (Mainly Pages77 & 90)"
1 ;"(5,6,7 & 8)";
1 ;" PRESS ANY LETTER TO CONTINUE":
1 ;" PRESS A LETTER FOR INSTRUCTIONS"
1 ;" By your efforts you have won the opportunity to join the SPACE CADET CORPS "
1 ;" YOUR TARGET IS TO SCORE MORE THAN 100. HOW QUICKLY CAN YOU PASS 100 AND DISCOVER YOUR":
1 ;" PRESS ANY LETTER WHEN READY"
1 ;" PRESS ANY KEY AND THEN START THE CASSETTE PLAYER"
1 ;" PRESS Y (yes) or N (no)"
1 ;" PRESS ""A"",""B"" or ""C"" ":
1 ;" ":
1 ;" ":
1 888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
1 7PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP&
1 ................................................................................................................................................................................................
1 ,chars-256
1 )=U$(W(Y,1
1 )="1")+(STRINGSCAN
1 )+("SPACE CADET 2ND CLASS"
1 )+("SPACE CADET 1ST CLASS"
1 )+("ASTRONAUT"
1 )+("ASTRONAUT 1ST CLASS"
1 (number-total)+" WRONG":
1 (h-total)+" WRONG":
1 (ANSWERSCAN
1 '" E)TO LEAVE THIS PROGRAM"
1 '" THIS IS TO CERTIFY THAT"
1 '" HAS QUALIFIED AS"
1 "VIRGO","VIRGIN",12
1 "TAURUS","BULL",15
1 "SCORPIUS","SCORPION",14
1 "SAGITTARIUS","ARCHER",15
1 "PISCES","FISH",8
1 "LINE No.","ADDRESS"'
1 "LIBRA","SCALES",5
1 "LEO","LION",10
1 "IT IS IN THIS CONSTELLATION":
1 "GEMINI","TWINS",12
1 "CAPRICORNUS","GOAT",7
1 "CANCER","CRAB",8
1 "ARIES","RAM",6
1 "AQUARIUS","WATER CARRIER",16
1 " Your next program is on the other side of the Tape Cassette. PLEASE TURN OVER AND REWIND TO THE BEGINNING.":
1 " Your Current Score is ";score:
1 " YOU CAN NOW TRY TO QUALIFY IN":
1 " D)ASTRONAUT 1ST CLASS (Answer 50 Questions)"
1 " C)ASTRONAUT (Answer 40 Questions)"
1 " B)SPACE CADET 1ST CLASS (Answer 24 Questions)"
1 " A)SPACE CADET 2ND CLASS (Answer 12 Questions)"
1 " THE LEVELS YOU CAN TRY ARE"
1 " THE SPACE CADET CORPS":
1 " LOSE 1 POINT":
1 " THEN
1 colder than EARTH ?
1 SUB;ZOD
1 SUB; UDG1
1 PRESS A LETTER TO TRY AGAIN
1 PRESS A LETTER
1 NAME ENDS
1 INVALID ENTRY
1 Chris Somerville for Chalksoft Ltd. Published by Piper Books Ltd. 1984
1 CHRIS SOMERVILLE FOR CHALKSOFT LTD. PUBLISHED BY PIPER BOOKS LTD. 1984
1 ? C) TEMPERATE ? C) -210
1 ? C) Quite pleasantly WARM ? C) -230
1 ? C) PLUTO is WARM ? C) No Air or Water ? C) Hydrogen ? C) Carbon Dioxide ? C) THE SAME AS VENUS ? C) of Methane ? C) is Nitrogen and Methane ? C) Liquid Hydrogen ? C) 16 ? C) 5 ? C) Cold,with two Moons ? C) 2 ? C) -210
1 ? C) -150
1 ? C) 220
1 ? B) PLUTO is COLD ? B) Not enough Oxygen for life ? B) Methane ? B) Methane and Helium ? B) THE SAME AS SATURN ? B) of Oxygen and Helium ? B) is Methane,Helium & Hydrogen?B) Carbon Dioxide gas ? B) 21 ? B) 21 ? B) Cold,with five Moons ? B) 0 ? B) 172
1 ? B) HOT ? B) -87
1 ? B) Extremely HOT ? B) -150
1 ? B) -220
1 ? B) 150
1 ? A) PLUTO is HOT ? A) High Carbon Dioxide content ?A) No Oxygen ? A) Nitrogen & Helium ? A) HELIUM ? A) of Hydrogen and Helium ? A) is made of Hydrogen & Helium?A) Methane gas ? A) 2 ? A) 20 ? A) Hot, with two Moons ? A) 5 ? A) 232
1 ? A) Extremely COLD ? A) -50
1 ? A) COLD ? A) -300
1 ? A) -230
1 ? A) -210
1 1984 Chris Somerville":
1 CHRIS SOMERVILLE
1 IF YOU ARE STUCK READ YOUR FACTBOOK FROM PAGE "+R$(CURRENT,31
1 WARNING
1 THE SHIP IS LOST
1 1984
1 1983
1 STOP THE TAPE I
1 STOP THE TAPE
1 CREATES AN ARRAY F OF NON REPEATED NUMBERS
1 E
1
1
1
1